Developer CD Series 1991: Code Warrior/bincue/Code Warrior.bin/Development Platforms (Moof!)/LISP Related/Goal-Plan-Code Editor/PROGRAMS/supernova

Text File | 1990-03-23 | 8.4 KB | 2 lines | [GPAL/GPCE]

((1059) (1059 :OBJECT-NAME *PROGRAM* :NAME "supernova" :GOAL-DESCRIPTION "A Pascal construct to start and name a program." :PARENT :NONE :CHILDREN (1061 1064) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST (1060)) (1060 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1059 :TYPE NON-EXPRESSION :CONTENTS (1062 1065)) (1061 :OBJECT-NAME *GOAL* :NAME "G:GetRadius" :GOAL-DESCRIPTION "Get the radius of the circle" :PARENT 1059 :CHILDREN (1062) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1062 :OBJECT-NAME *PLAN* :NAME "P:GetRadius" :GOAL-DESCRIPTION "Get the radius of the circle" :PARENT 1061 :CHILDREN (1067 1073) :COMPOSERS (1060) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1063)) (1063 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1062 :TYPE *PLAN* :CONTENTS (1071 1077)) (1064 :OBJECT-NAME *GOAL* :NAME "G:DrawTheStuff" :GOAL-DESCRIPTION "Loop and draw the circles that make it look like a supernova." :PARENT 1059 :CHILDREN (1065) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1065 :OBJECT-NAME *PLAN* :NAME "P:DrawTheStuff" :GOAL-DESCRIPTION "Loop and draw the circles that make it look like a supernova." :PARENT 1064 :CHILDREN (1079 1089 1093 1098 1099 1100) :COMPOSERS (1060) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1066)) (1066 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1065 :TYPE *PLAN* :CONTENTS (1086 1090)) (1067 :OBJECT-NAME *GOAL* :NAME "G:RadiusPrompt" :GOAL-DESCRIPTION "Prompt for the radius." :PARENT 1062 :CHILDREN (1071) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1068 :OBJECT-NAME *STRING-CONSTANT* :NAME "RadiusPrompt" :GOAL-DESCRIPTION "Radius Prompt" :PARENT NIL :CHILDREN :NONE :COMPOSERS NIL :MULTIPLE-COMPOSERS-P T :SLOT-LIST (1070 1069)) (1069 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1068 :TYPE *PLAN* :CONTENTS NIL) (1070 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1068 :TYPE STRING :CONTENTS ("Please enter a value for the radius:")) (1071 :OBJECT-NAME *WRITELN* :NAME "writeln" :GOAL-DESCRIPTION "A Pascal construct to output to the screen a line of characters terminated by a return character." :PARENT 1067 :CHILDREN :NONE :COMPOSERS (1063) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1072)) (1072 :OBJECT-NAME *MULTI-SLOT* :NAME "message" :MY-PLAN 1071 :TYPE *EXPRESSION* :CONTENTS (1068)) (1073 :OBJECT-NAME *GOAL* :NAME "G:GetRadius" :GOAL-DESCRIPTION "Read in the radius prompt." :PARENT 1062 :CHILDREN (1077) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1074 :OBJECT-NAME *REAL-VARIABLE* :NAME "Radius" :GOAL-DESCRIPTION "Radius" :PARENT NIL :CHILDREN :NONE :COMPOSERS NIL :MULTIPLE-COMPOSERS-P T :SLOT-LIST (1076 1075)) (1075 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1074 :TYPE *PLAN* :CONTENTS NIL) (1076 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1074 :TYPE REAL :CONTENTS (100.0)) (1077 :OBJECT-NAME *READLN* :NAME "readln" :GOAL-DESCRIPTION "A Pascal construct to read input from the keyboard, terminated by a return character." :PARENT 1073 :CHILDREN :NONE :COMPOSERS (1063) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1078)) (1078 :OBJECT-NAME *UNI-SLOT* :NAME "variable" :MY-PLAN 1077 :TYPE *VARIABLE* :CONTENTS (1074)) (1079 :OBJECT-NAME *GOAL* :NAME "G:Initialize" :GOAL-DESCRIPTION "Initialize looping variables" :PARENT 1065 :CHILDREN (1086) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1080 :OBJECT-NAME *REAL-VARIABLE* :NAME "count" :GOAL-DESCRIPTION "a loop counter variable" :PARENT NIL :CHILDREN :NONE :COMPOSERS NIL :MULTIPLE-COMPOSERS-P T :SLOT-LIST (1082 1081)) (1081 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1080 :TYPE *PLAN* :CONTENTS NIL) (1082 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1080 :TYPE REAL :CONTENTS (100.0)) (1083 :OBJECT-NAME *REAL-CONSTANT* :NAME "one" :GOAL-DESCRIPTION "the numerical value 1" :PARENT NIL :CHILDREN :NONE :COMPOSERS NIL :MULTIPLE-COMPOSERS-P T :SLOT-LIST (1085 1084)) (1084 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1083 :TYPE *PLAN* :CONTENTS NIL) (1085 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1083 :TYPE REAL :CONTENTS (1.0)) (1086 :OBJECT-NAME *ASSIGN* :NAME ":=" :GOAL-DESCRIPTION "A Pascal construct to assign a value to a given variable." :PARENT 1079 :CHILDREN :NONE :COMPOSERS (1066) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1087 1088)) (1087 :OBJECT-NAME *UNI-SLOT* :NAME "variable" :MY-PLAN 1086 :TYPE *VARIABLE* :CONTENTS (1080)) (1088 :OBJECT-NAME *UNI-SLOT* :NAME "expression" :MY-PLAN 1086 :TYPE *EXPRESSION* :CONTENTS (1083)) (1089 :OBJECT-NAME *GOAL* :NAME "G:DrawingLoop" :GOAL-DESCRIPTION "This is the looping part." :PARENT 1065 :CHILDREN (1090) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1090 :OBJECT-NAME *WHILE-DO* :NAME "while-do" :GOAL-DESCRIPTION "A Pascal construct to decide how often to execute a group of statements repeatedly, depending on the result of a boolean test just BEFORE each execution." :PARENT 1089 :CHILDREN :NONE :COMPOSERS (1066) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1091 1092)) (1091 :OBJECT-NAME *UNI-SLOT* :NAME "test" :MY-PLAN 1090 :TYPE *BOOLEAN-EXPRESSION* :CONTENTS (1094)) (1092 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1090 :TYPE NON-EXPRESSION :CONTENTS (1114 1101)) (1093 :OBJECT-NAME *GOAL* :NAME "G:LoopTest" :GOAL-DESCRIPTION "The looping test." :PARENT 1065 :CHILDREN (1094) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1094 :OBJECT-NAME *LESS-THAN* :NAME "<" :GOAL-DESCRIPTION "A Pascal operator to test whether one real expression is less than another." :PARENT 1093 :CHILDREN NIL :COMPOSERS (1091) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1095 1096 1097)) (1095 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1094 :TYPE BOOLEAN :CONTENTS NIL) (1096 :OBJECT-NAME *UNI-SLOT* :NAME "expression1" :MY-PLAN 1094 :TYPE *REAL-EXPRESSION* :CONTENTS (1080)) (1097 :OBJECT-NAME *UNI-SLOT* :NAME "expression2" :MY-PLAN 1094 :TYPE *REAL-EXPRESSION* :CONTENTS (1074)) (1098 :OBJECT-NAME *GOAL* :NAME "G:DrawACircle" :GOAL-DESCRIPTION "Draw a circle on the screen." :PARENT 1065 :CHILDREN (1114) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1099 :OBJECT-NAME *GOAL* :NAME "G:IncrementCounter" :GOAL-DESCRIPTION "Increment the counter" :PARENT 1065 :CHILDREN (1101) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1100 :OBJECT-NAME *GOAL* :NAME "G:IncrementExpression" :GOAL-DESCRIPTION "The expression to increment the counter." :PARENT 1065 :CHILDREN (1104) :COMPOSERS :NONE :MULTIPLE-COMPOSERS-P :NONE :SLOT-LIST :NONE) (1101 :OBJECT-NAME *ASSIGN* :NAME ":=" :GOAL-DESCRIPTION "A Pascal construct to assign a value to a given variable." :PARENT 1099 :CHILDREN :NONE :COMPOSERS (1092) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1102 1103)) (1102 :OBJECT-NAME *UNI-SLOT* :NAME "variable" :MY-PLAN 1101 :TYPE *VARIABLE* :CONTENTS (1080)) (1103 :OBJECT-NAME *UNI-SLOT* :NAME "expression" :MY-PLAN 1101 :TYPE *EXPRESSION* :CONTENTS (1104)) (1104 :OBJECT-NAME *ADD* :NAME "+" :GOAL-DESCRIPTION "A Pascal operator to add two numbers." :PARENT 1100 :CHILDREN NIL :COMPOSERS (1103) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1105 1106 1107)) (1105 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1104 :TYPE REAL :CONTENTS NIL) (1106 :OBJECT-NAME *UNI-SLOT* :NAME "addend1" :MY-PLAN 1104 :TYPE *REAL-EXPRESSION* :CONTENTS (1080)) (1107 :OBJECT-NAME *UNI-SLOT* :NAME "addend2" :MY-PLAN 1104 :TYPE *REAL-EXPRESSION* :CONTENTS (1083)) (1108 :OBJECT-NAME *REAL-CONSTANT* :NAME "VertLoc" :GOAL-DESCRIPTION "Vertical Location" :PARENT NIL :CHILDREN :NONE :COMPOSERS NIL :MULTIPLE-COMPOSERS-P T :SLOT-LIST (1110 1109)) (1109 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1108 :TYPE *PLAN* :CONTENTS NIL) (1110 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1108 :TYPE REAL :CONTENTS (75.0)) (1111 :OBJECT-NAME *REAL-CONSTANT* :NAME "HorzLoc" :GOAL-DESCRIPTION "Horizontal Location" :PARENT NIL :CHILDREN :NONE :COMPOSERS NIL :MULTIPLE-COMPOSERS-P T :SLOT-LIST (1113 1112)) (1112 :OBJECT-NAME *MULTI-SLOT* :NAME "body" :MY-PLAN 1111 :TYPE *PLAN* :CONTENTS NIL) (1113 :OBJECT-NAME *UNI-SLOT* :NAME "value" :MY-PLAN 1111 :TYPE REAL :CONTENTS (75.0)) (1114 :OBJECT-NAME *PAINTCIRCLE* :NAME "paintcircle" :GOAL-DESCRIPTION "A Macintosh procedure to paint a circle in the graphics window." :PARENT 1098 :CHILDREN :NONE :COMPOSERS (1092) :MULTIPLE-COMPOSERS-P NIL :SLOT-LIST (1115 1116 1117)) (1115 :OBJECT-NAME *UNI-SLOT* :NAME "horizontal" :MY-PLAN 1114 :TYPE *REAL-EXPRESSION* :CONTENTS (1111)) (1116 :OBJECT-NAME *UNI-SLOT* :NAME "vertical" :MY-PLAN 1114 :TYPE *REAL-EXPRESSION* :CONTENTS (1108)) (1117 :OBJECT-NAME *UNI-SLOT* :NAME "radius" :MY-PLAN 1114 :TYPE *REAL-EXPRESSION* :CONTENTS (1080)))